sync on
autocam off
color backdrop rgb(0,0,0)
load image "ground.jpg",1
make matrix 1,1000,1000,100,100
prepare matrix texture 1,1,1,1
position matrix 1,-500,0,-500
position camera 0,100,0
make object sphere 1,20
position object 1,0,0,500
set ambient light 20
color ambient light rgb(64,64,128)
set normalization off
set point light 0,0,0,500
position light 0,0,100,0
color light 0,512,512,255
set light range 0,1000
while inkey$()<>"x"
set cursor 0,0
print "LIGHT COMMANDS (X to Exit)"
print "position x:";light position x(0)
print "position y:";light position y(0)
print "position z:";light position z(0)
sync
endwhile
delete object 1
set normalization on
end